Workplace Effectiveness: Critical Thinking Skills/Workplace Effectiveness: Critical Thinking Skills.iso/pc/Files/Skilluse.dxr/00004_Navigation handlers.ls

Text File | 1998-09-15 | 1.1 KB | 67 lines

global gMasterData, gSection, gSkillData, gEvaluationData

on goIntro
  go(label("intro"))
  goNarrator(gMasterData, "95")
  set gSection to #intro
  initSkillUseData()
end

on goReview
  stopSound2()
  go("r1")
  goNarrator(gMasterData, "96")
  set gSection to #review
  set the frame of gSkillData to 1
end

on exitReview
  scoreTheInput()
  stopSound2()
  goScore()
  goNarrator(gMasterData, "98")
  preFillText()
end

on goScore
  go("score")
  set gSection to #score
  if not activationOn(gMasterData) then
    activate(gMasterData)
  end if
end

on goAnswers
  stopSound2()
  go("a1")
  goNarrator(gMasterData, "100")
  set gSection to #answers
  set the frame of gSkillData to 1
end

on goPlan1
  stopSound2()
  go("plan1")
  audio1xOnly(gMasterData, "99")
  set gSection to #plan1
end

on goPlan2
  go("plan2")
  set gSection to #plan2
end

on goVideo
  stopSound2()
  set gSection to #video
  go("video")
end

on goEvaluate
  if voidp(gEvaluationData) then
    set gEvaluationData to [0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0]
  end if
  go("eval1")
  set gSection to #evaluate1
end